home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)te.d64 / boot c64 comal (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  1KB  |  51 lines
  1. 1 REM OPEN 15,8,15,"S0:BOOT C64 COMAL":CLOSE15:SAVE "0:BOOT C64 COMAL",8
  2. 10 PRINT "[147]"; : REM CLEAR SCREEN
  3. 20 POKE 53281,0: REM BACKGROUND BLACK
  4. 30 POKE 53280,0: REM BORDER     BLACK
  5. 32 PRINT "";   : REM PENCOLOR GREEN
  6. 34 IF A=1 THEN 46
  7. 35 OPEN 15,8,15,"U;"
  8. 36 INPUT#15,D1,A$,D2,D3
  9. 37 CLOSE15
  10. 39 IF "1541"<>MID$(A$,14,17) THEN 50
  11. 42 PRINT"[147]LOADING ML.SIZZLE
  12. 44 [139] A[178]0 [167] A[178]1:[147]"ML.SIZZLE",8,1
  13. 46 [158] 49152:[156]
  14. 50 [153] "LOADTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";
  15. 52 [153] " PLEASE WAIT WHILE COMAL 0.14 IS LOADED ";
  16. 120 [153]
  17. 130 [153] "PRINTTUTORIAL: FOUNDATIONS ... WITH COMAL"
  18. 145 [153] "DOCUMENTATION: COMAL HANDBOOK
  19. 150 PRINT "NEWSLETTER: COMAL TODAY
  20. 155 [153]
  21. 160 [153] "           DEFAVAILABLE FROM:           "
  22. 165 [153] "SYS"; : [143] PENCOLOR YELLOW
  23. 170 [153] "  COMAL USERS GROUP, U.S.A., LIMITED   "
  24. 180 [153] "          6041 MONONA DRIVE            "
  25. 185 [153] "          MADISON, WI 53716
  26. 190 PRINT "[153]SEND SELF ADDRESSED STAMPED ENVELOPE"
  27. 200 PRINT "OR CALL [158]608-222-4432[153] FOR MORE INFO."
  28. 210 PRINT "" : REM PENCOLOR WHITE
  29. 230 PRINT "  COMAL PROGRAMS CAN ONLY BE EXECUTED"
  30. 240 PRINT "  AFTER THE LANGUAGE HAS BEEN LOADED."
  31. 245 PRINT "[159]"; : REM PENCOLOR CYAN
  32. 250 PRINT "COMAL PROGRAMS ON THIS DISK ARE LOADED:"
  33. 270 PRINT "   LOAD "CHR$(34)"NAME"CHR$(34)
  34. 272 PRINT "   RUN"
  35. 275 PRINT "[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  36. 280 PRINT "   BACKUP THIS DISK BEFORE YOU USE IT   [146]";
  37. 899 REM
  38. 900 REM
  39. 910 REM CHAIN"HI + <RETURN KEY>
  40. 920 [151] 198,9
  41. 930 [151] 631,[198]("C")
  42. 940 [151] 632,[198]("H")
  43. 950 [151] 633,[198]("A")
  44. 960 [151] 634,[198]("I")
  45. 970 [151] 635,[198]("N")
  46. 980 [151] 636,34
  47. 990 [151] 637,[198]("H")
  48. 1000 [151] 638,[198]("I")
  49. 1010 [151] 639,13
  50. 1020 [147] "C64 COMAL 0.14",8
  51.